set.seed(123)
#require(gRbase) #for faster computations in the internal functions
require(hash)
#simulate a dataset with continuous data
dataset <- matrix( runif(1000 * 50, 1, 100), ncol = 50 )
#define a simulated class variable
target <- rpois(1000, 10)
a <- glm.bsreg(target, dataset, threshold = 0.05)
Run the code above in your browser using DataLab